home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / DiskInit.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  3.3 KB  |  113 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        DiskInit.mod
  3.  
  4.      Contains:    Disk Initialization Package (LONG("PACK") 2) Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$IF UNDEFINED SystemSevenFiveOrLater *)
  21.   (*$SET SystemSevenFiveOrLater FALSE*)
  22. (*$END*)
  23. (*$IF UNDEFINED SystemSevenOrLater *)
  24.   (*$IF GENERATINGCFM *)
  25.     (*$SET SystemSevenOrLater TRUE*)
  26.   (*$ELSE*)
  27.     (*$SET SystemSevenOrLater SystemSevenFiveOrLater*)
  28.   (*$END*)
  29. (*$END*)
  30. (*$IF UNDEFINED SystemSixOrLater *)
  31.   (*$SET SystemSixOrLater SystemSevenOrLater*)
  32. (*$END*)
  33. (*$TAGS-*)
  34. (*$CALLING PASCAL*)
  35. MODULE DiskInit;
  36. IMPORT SYSTEM, Types;
  37.  
  38.  
  39. (* $PUSH*)
  40. (* $ALIGN MAC68K*)
  41. (* $LibExport+*)
  42.  
  43. TYPE
  44.     HFSDefaults* = RECORD
  45.         sigWord*:                (*ΔΔPACKEDΔΔ*) ARRAY 2 (*ΔΔ[0..1]ΔΔ*) OF CHAR;            (* signature word *)
  46.         abSize*:                    LONGINT;                                (* allocation block size in bytes *)
  47.         clpSize*:                LONGINT;                                (* clump size in bytes *)
  48.         nxFreeFN*:                LONGINT;                                (* next free file number *)
  49.         btClpSize*:                LONGINT;                                (* B-Tree clump size in bytes *)
  50.         rsrv1*:                    INTEGER;                                (* reserved *)
  51.         rsrv2*:                    INTEGER;                                (* reserved *)
  52.         rsrv3*:                    INTEGER;                                (* reserved *)
  53.     END;
  54.  
  55. (*$IF SystemSevenOrLater *)
  56.  
  57. PROCEDURE DILoad*;
  58.     (*$IF NOT GENERATINGCFM*)
  59.     INLINE PASCAL $7002, $3F00, $A9E9;
  60.     (*$END*)
  61. PROCEDURE DIUnload*;
  62.     (*$IF NOT GENERATINGCFM*)
  63.     INLINE PASCAL $7004, $3F00, $A9E9;
  64.     (*$END*)
  65. PROCEDURE DIBadMount*(where: Types.Point; evtMessage: LONGINT): INTEGER;
  66.     (*$IF NOT GENERATINGCFM*)
  67.     INLINE PASCAL $7000, $3F00, $A9E9;
  68.     (*$END*)
  69. PROCEDURE DIFormat*(drvNum: INTEGER): Types.OSErr;
  70.     (*$IF NOT GENERATINGCFM*)
  71.     INLINE PASCAL $7006, $3F00, $A9E9;
  72.     (*$END*)
  73. PROCEDURE DIVerify*(drvNum: INTEGER): Types.OSErr;
  74.     (*$IF NOT GENERATINGCFM*)
  75.     INLINE PASCAL $7008, $3F00, $A9E9;
  76.     (*$END*)
  77. PROCEDURE DIZero*(drvNum: INTEGER; volName: ConstStr255Param): Types.OSErr;
  78.     (*$IF NOT GENERATINGCFM*)
  79.     INLINE PASCAL $700A, $3F00, $A9E9;
  80.     (*$END*)
  81. PROCEDURE DIXFormat*(drvNum: INTEGER; fmtFlag: BOOLEAN; fmtArg: LONGINT; VAR actSize: LONGINT): Types.OSErr;
  82.     (*$IF NOT GENERATINGCFM*)
  83.     INLINE PASCAL $700C, $3F00, $A9E9;
  84.     (*$END*)
  85. PROCEDURE DIXZero*(drvNum: INTEGER; volName: ConstStr255Param; fsid: INTEGER; mediaStatus: INTEGER; volTypeSelector: INTEGER; volSize: LONGINT; extendedInfoPtr: UNIV Types.Ptr): Types.OSErr;
  86.     (*$IF NOT GENERATINGCFM*)
  87.     INLINE PASCAL $700E, $3F00, $A9E9;
  88.     (*$END*)
  89. PROCEDURE DIReformat*(drvNum: INTEGER; fsid: INTEGER; volName: ConstStr255Param; msgText: ConstStr255Param): Types.OSErr;
  90.     (*$IF NOT GENERATINGCFM*)
  91.     INLINE PASCAL $7010, $3F00, $A9E9;
  92.     (*$END*)
  93. (*$ELSE*)
  94.  
  95. PROCEDURE DILoad*;
  96.     EXTERNAL PASCAL;
  97. PROCEDURE DIUnload*;
  98.     EXTERNAL PASCAL;
  99. PROCEDURE DIBadMount*(where: Types.Point; evtMessage: LONGINT): INTEGER;
  100.     EXTERNAL PASCAL;
  101. PROCEDURE DIFormat*(drvNum: INTEGER): Types.OSErr;
  102.     EXTERNAL PASCAL;
  103. PROCEDURE DIVerify*(drvNum: INTEGER): Types.OSErr;
  104.     EXTERNAL PASCAL;
  105. PROCEDURE DIZero*(drvNum: INTEGER; volName: Types.ConstStr255Param): Types.OSErr;
  106.     EXTERNAL PASCAL;
  107. (*$END*)
  108.  
  109. (* $ALIGN RESET*)
  110. (* $POP*)
  111.  
  112.  END DiskInit.
  113.